home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / c / cujoct93.zip / 1110036C < prev    next >
Text File  |  1993-08-09  |  473b  |  28 lines
  1. void *stack[STACK_SIZE];
  2. void **sp = stack;
  3.  
  4. void gc_cb(excCallbackTag tag, void *cb_data,
  5.            void **try_data)
  6. {
  7.   switch (tag) {
  8.   case excBeginCallback:
  9.     *try_data = sp;
  10.     break;
  11.  
  12.   case excEndCallback:
  13.   case excThrowCallback:
  14.     if (try_data) sp = (void **) *try_data;
  15.     else sp = stack;
  16.     break;
  17.  
  18.   default:
  19.     break;
  20.   }
  21. }
  22.  
  23. exc_install_callback(excBeginCallback
  24.     | excEndCallback 
  25.     | excThrowCallback, gc_cb, NULL);
  26.  
  27.  
  28.